unit uPopUpMensagem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver, dxSkinSpringTime,
  dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, cxTextEdit, cxMemo, cxRichEdit, ExtCtrls, Buttons,
  dxGDIPlusClasses, jpeg, Menus, StdCtrls, cxButtons;

type
  TfAlertaMsn = class(TForm)
    Image2: TImage;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    pTexto: TPanel;
    cxRichEdit1: TcxRichEdit;
    cxTextEdit1: TcxTextEdit;
    pImagem: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  typeimagem:string;
    { Public declarations }
  end;

var
  fAlertaMsn: TfAlertaMsn;

implementation

{$R *.dfm}

procedure TfAlertaMsn.FormCreate(Sender: TObject);
var
  region : hrgn;
begin
  region:= CreateRoundRectRgn(0, 0, width, height, 50, 50);
  setwindowrgn(handle, region, true);

  typeimagem:='wide';

  if (typeimagem = 'nwide') then
  begin
    pImagem.Height:=106;
    pImagem.Width:=79;
    pImagem.Top:=32;
  end;

  if (typeimagem = 'wide') then
  begin
    pImagem.Height:=86;
    pImagem.Width:=131;
    pImagem.Top:=51;
  end;


  region:= CreateRoundRectRgn(0, 0, pImagem.width, pImagem.height, 40, 40);
  setwindowrgn(pImagem.handle, region, true);

end;

end.
